home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / Ubuntu 9.10 PL / karmelkowy-koliberek-desktop-9.10-i386-PL.iso / casper / filesystem.squashfs / usr / share / alsa / cards / aliases.alisp < prev    next >
Lisp/Scheme  |  2009-10-11  |  687b  |  30 lines
  1. (setq snd_card_aliases_array
  2.   (
  3.     ("YMF724"         . "YMF744")
  4.     ("YMF724F"        . "YMF744")
  5.     ("YMF740"        . "YMF744")
  6.     ("YMF740C"        . "YMF744")
  7.     ("YMF754"        . "YMF744")
  8.     ("CMIPCI"        . "CMI8338")
  9.     ("CMI8738"        . "CMI8338")
  10.     ("CMI8738-MC4"    . "CMI8738-MC6")
  11.     ("E-mu APS"        . "EMU10K1")
  12.     ("GUS Max"        . "GUS")
  13.     ("GUS ACE"         . "GUS")
  14.     ("GUS Extreme"    . "GUS")
  15.     ("AMD InterWave"    . "GUS")
  16.     ("Dynasonic 3-D"    . "GUS")
  17.     ("InterWave STB"    . "GUS")
  18.   )
  19. )
  20.  
  21. (defun snd_card_alias (cardname)
  22.   (setq r (assq cardname snd_card_aliases_array))
  23.   (setq r (if (null r) cardname r))
  24.   (unsetq r)
  25. )
  26.  
  27. (defun snd_card_alias_unset ()
  28.   (unsetq snd_card_aliases_array snd_card_alias)
  29. )
  30.